home *** CD-ROM | disk | FTP | other *** search
/ Kunsthaus Tacheles / Kunsthaus Tacheles.iso / flyymca.dir / 00001_Script_main next >
Text File  |  1996-09-29  |  4KB  |  197 lines

  1. global menuName, firstChannel, lastChannel
  2.  
  3. on startMovie
  4.   put EMPTY into menuName
  5. end startMovie
  6.  
  7. on stopmovie
  8.   hideHilite
  9. end stopmovie
  10.  
  11. on idle
  12.   if menuName = EMPTY then exit
  13.   repeat with x = firstChannel to lastChannel
  14.     if rollover(x) then
  15.       showHilite x
  16.       exit
  17.     end if
  18.   end repeat
  19.   hideHilite
  20. end idle
  21.  
  22. on showHilite which
  23.   puppetSprite 30, TRUE
  24.   set the locV of sprite 30 = the locV of sprite which
  25.   updateStage
  26. end showHilite
  27.  
  28. on hideHilite
  29.   puppetSprite 30, FALSE
  30.   set the locV of sprite 30 = -999
  31.   updateStage
  32. end hideHilite
  33.  
  34. on jumpTo where
  35.   hideHilite
  36.   puppetSound "click"
  37.   updateStage
  38.   cursor 4
  39.   puppetTransition 9,0,4
  40.   go to frame where
  41.   cursor 0
  42.   puppetSound 0
  43. end jumpTo
  44.  
  45. on menuTo where
  46.   hideHilite
  47.   cursor 4
  48.   puppetTransition 9,0,4
  49.   go to frame where
  50.   cursor 0
  51. end menuTo
  52.  
  53. -- go to "label" + ⁿbergang centerOut
  54. on goTo where
  55.   hideHilite
  56.   cursor 4
  57.   puppetTransition 9,0,4
  58.   go to frame where
  59.   cursor 0
  60. end goTo
  61.  
  62. on goMain
  63.   --  hideHilite
  64.   puppetSound "click"
  65.   updateStage
  66.   set the locV of sprite 10 = -999
  67.   set myCursor to -1
  68.   cursor -1
  69.   puppetTransition 9,0,4
  70.   go to frame "MainPlan"
  71.   puppetSound 0
  72.   updateStage
  73. end goMain
  74.  
  75. on flashButton
  76.   puppetSprite the clickOn, TRUE
  77.   puppetSound "click"
  78.   put the name of cast the castNum of sprite the clickOn into rootName
  79.   set the castNum of sprite the clickOn = the number of cast (rootName && "lit")
  80.   updateStage
  81.   waitFor .1
  82.   set the castNum of sprite the clickOn = the number of cast rootName
  83.   puppetSprite the clickOn, FALSE
  84.   puppetSound 0
  85.   updateStage
  86. end flashButton
  87.  
  88. on waitFor seconds
  89.   put the ticks into now
  90.   repeat while the ticks < now + (seconds * 60)
  91.   end repeat
  92. end waitFor
  93.  
  94. -- go to "label" + stopMovie 
  95. -- + flashButton + ⁿbergang edgesIn
  96. on returnTo where
  97.   stopQT
  98.   flashButton
  99.   cursor 4
  100.   puppetTransition 10,0,4
  101.   go to frame where
  102.   cursor 0
  103. end returnTo
  104.  
  105. on returnFromHelp
  106.   flashButton
  107.   global helpReturn
  108.   cursor 4
  109.   puppetTransition 10,0,4
  110.   go to frame helpReturn
  111.   cursor 0
  112. end returnFromHelp
  113.  
  114. on stopQT
  115.   put the castNum of sprite 4 into theCast
  116.   if theCast = 0 then exit
  117.   if the castType of cast theCast = #digitalvideo then
  118.     set the movieRate of sprite 4 = 0
  119.     set the movieTime of sprite 4 = 0
  120.     if the width of sprite 4 > 500 then
  121.       set the loc of sprite 4 = point(-999,-999)
  122.     end if
  123.     updateStage
  124.     puppetSprite 4, FALSE
  125.   end if
  126. end stopQT
  127.  
  128. -- go to the frame + 1
  129. -- stop movie + flashButton
  130. -- ubergang wipeLeft
  131. on goNextFrame
  132.   stopQT
  133.   flashButton
  134.   cursor 4
  135.   puppetTransition 2,1,4
  136.   go to the frame + 1
  137.   cursor 0
  138. end nextFrame
  139.  
  140. on nextArtist
  141.   stopQT
  142.   flashButton
  143.   cursor 4
  144.   puppetTransition 2,1,4
  145.   go to marker(1)
  146.   cursor 0
  147. end nextArtist
  148.  
  149. on nextMenu where
  150.   stopQT
  151.   flashButton
  152.   cursor 4
  153.   puppetTransition 2,1,4
  154.   go to frame where
  155.   cursor 0
  156. end nextMenu
  157.  
  158. -- go to the frame - 1
  159. -- stop movie + flashButton
  160. -- ubergang wipeLeft
  161. on goPrevFrame
  162.   stopQT
  163.   flashButton
  164.   cursor 4
  165.   puppetTransition 1,1,4
  166.   go to the frame -1
  167.   cursor 0
  168. end prevFrame
  169.  
  170. on prevArtist
  171.   stopQT
  172.   flashButton
  173.   cursor 4
  174.   puppetTransition 1,1,4
  175.   go to marker(-1)
  176.   cursor 0
  177. end prevArtist
  178.  
  179. on prevMenu where
  180.   stopQT
  181.   flashButton
  182.   cursor 4
  183.   puppetTransition 1,1,4
  184.   go to frame where
  185.   cursor 0
  186. end prevMenu
  187.  
  188.  
  189. -- on displayMessage theMessage
  190. --   openXlib "Misc_X"
  191. --   if objectP(myXobj) then myXobj(mDispose)
  192. --   put Misc_X(mNew) into myXobj
  193. --   myXobj(mAnswer, theMessage, "","","OK")
  194. --   myXobj(mDispose)
  195. --   closexlib "Misc_X"
  196. -- end displayMessage
  197.